home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 1752.ZIP / MHD.ZIP / MHDISP.PRG < prev    next >
Text File  |  1986-06-03  |  4KB  |  131 lines
  1. * MHDISP   DB3 PLUS                                   REVISION 03/09/86
  2. *
  3. * Module accepts choice from either MHDRUG.PRG or MHDRLIST.PRG
  4. * and displays drug data.
  5. *
  6. CLEAR
  7. SELECT C
  8. USE &datafile
  9. SELECT D
  10. USE MHORGAN INDEX MHORGAN
  11. SELECT E
  12. USE MHADVERS INDEX MHADVERS
  13. SELECT F
  14. USE MHINTACT INDEX MHINTACT
  15. SELECT G
  16. USE MHCLINIC INDEX MHCLINIC
  17. * Select and display records
  18. SELECT C
  19. FIND &key
  20. * Return to previous module if no find
  21. IF EOF() .AND. .NOT. FOUND()
  22.    WAIT key + ' NOT FOUND. Press any key to continue' TO waiting
  23.    RETURN
  24. ENDIF
  25. STORE DRUG_ID to key
  26. * Display each record
  27. ******** TOP LINE *************************************************
  28. @ line + 0, 0 SAY CHR(201) + SPACE(78) + CHR(187)
  29. @ line + 0, 1 TO line + 0, 78 DOUBLE
  30. SELECT C
  31. ******** LABEL LINE ***********************************************
  32. @ line + 1, 0 SAY CHR(186) 
  33. SET COLOR TO I
  34. @ line + 1, 1 SAY 'GENERIC NAME' + REPL(CHR(219),5) + 'CLASS';
  35. + REPL(CHR(219),11) + 'ROUTE' + REPL(CHR(219),4) + 'BRAND NAME';
  36. + REPL(CHR(219),21) + 'ID:NO' 
  37. SET COLOR TO
  38. @ line + 1, 79 SAY CHR(186)
  39. ******** DATA LINE ***********************************************
  40. @ line + 2, 0 SAY CHR(186) + GEN_NAME + '  ' + CLASS + '  '+ ROUTE + '     ';
  41. + BR_NAME + '  ' + DRUG_ID + CHR(186)
  42. SELECT D
  43. FIND &key
  44. ******** DIVISION LINE *******************************************
  45. @ line + 3, 0 SAY CHR(204) + REPL(CHR(205),78) + CHR(185)
  46. ******** LABEL LINE **********************************************
  47. @ line + 4, 0 SAY CHR(186) 
  48. SET COLOR TO I
  49. @ line + 4, 1 SAY REPL(CHR(219),10) + 'SUSCEPTIBLE ORGANISMS';
  50. + REPL(CHR(219),43) + 'REF'+ CHR(219) 
  51. SET COLOR TO
  52. @ line + 4, 79 SAY CHR(186)
  53. DO WHILE DRUG_ID = key .AND. .NOT. EOF()
  54. ******** DATA LINE ***********************************************
  55.    @ line + 5, 0 SAY CHR(186) + ORGANISM + '  ' + REF_ID + CHR(186)
  56.    STORE line + 1 TO line
  57.    SKIP
  58. ENDDO
  59. SELECT E
  60. FIND &key
  61. ******* DIVISION LINE ********************************************
  62. @ line + 5, 0 SAY CHR(204) + REPL(CHR(205),78) + CHR(185)
  63. ******* LABEL LINE ***********************************************
  64. @ line + 6, 0 SAY CHR(186) 
  65. SET COLOR TO I
  66. @ line + 6, 1 SAY REPL(CHR(219),10) + 'ADVERSE REACTIONS';
  67. + REPL(CHR(219),47) + 'REF'+ CHR(219)
  68. SET COLOR TO
  69. @ line + 6, 79 SAY CHR(186)
  70. DO WHILE DRUG_ID = key .AND. .NOT. EOF()
  71. ******* DATA LINE ************************************************
  72.    @ line + 7, 0 SAY CHR(186) + ADV_REACT + '  ' + REF_ID + CHR(186)
  73.    STORE line + 1 TO line
  74.    IF line >= 12
  75.       ACCEPT 'MORE DATA. PRESS RETURN TO CONTINUE ' TO waiting
  76.       CLEAR
  77.       STORE -7 TO line
  78.    ENDIF line >= 12
  79.    SKIP
  80. ENDDO
  81. SELECT F
  82. FIND &key
  83. ******* DIVISION LINE ********************************************
  84. @ line + 7, 0 SAY CHR(204) + REPL(CHR(205),78) + CHR(185)
  85. ******* LABEL LINE ***********************************************
  86. @ line + 8, 0 SAY CHR(186) 
  87. SET COLOR TO I
  88. @ line + 8, 1 SAY REPL(CHR(219),10) + 'INTERACTION WITH ;
  89. OTHER DRUGS' + REPL(CHR(219),36) + 'REF'+ CHR(219)
  90. SET COLOR TO
  91. @ line + 8, 79 SAY CHR(186)
  92. DO WHILE DRUG_ID = key .AND. .NOT. EOF()
  93. ******* DATA LINE ************************************************
  94.    @ line + 9, 0 SAY CHR(186) + INTERACT + '  ' + REF_ID + CHR(186)
  95.    STORE line + 1 TO line
  96.    IF line >= 12
  97.       ACCEPT 'MORE DATA. PRESS RETURN TO CONTINUE' TO waiting
  98.       CLEAR
  99.       STORE -9 TO line
  100.    ENDIF line >= 12
  101.    SKIP
  102. ENDDO
  103. SELECT G
  104. FIND &key
  105. ******* DIVISION LINE ********************************************
  106. @ line + 9, 0 SAY CHR(204) + REPL(CHR(205),78) + CHR(185)
  107. ******* LABEL LINE ***********************************************
  108. @ line + 10, 0 SAY CHR(186) 
  109. SET COLOR TO I
  110. @ line + 10, 1 SAY REPL(CHR(219),10) + 'CLINICAL DATA';
  111. + REPL(CHR(219),51) + 'REF'+ CHR(219)
  112. SET COLOR TO
  113. @ line + 10, 79 SAY CHR(186)
  114. DO WHILE DRUG_ID = key .AND. .NOT. EOF()
  115. ******* DATA LINE ************************************************
  116.    @ line + 11, 0 SAY CHR(186) + CLIN_DATA + '  ' + REF_ID + CHR(186)
  117.    STORE line + 1 TO line
  118.    IF line >= 12
  119.       ACCEPT 'MORE DATA. PRESS RETURN TO CONTINUE ' TO waiting
  120.       CLEAR
  121.       STORE -11 TO line
  122.    ENDIF line >= 12
  123.    SKIP
  124. ******* BOTTOM LINE ***********************************************
  125.    @ line + 11, 0 SAY CHR(200) + SPACE(78) + CHR(188)
  126.    @ line + 11, 1 TO line + 11, 78 DOUBLE
  127. ENDDO
  128. ACCEPT 'END OF DATA FOR THIS DRUG. PRESS RETURN TO CONTINUE ' TO waiting
  129. RETURN
  130.  
  131.